home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 4
/
FM Towns Free Software Collection 4 - Disc 1.iso
/
tugi
/
user2.tug
< prev
next >
Wrap
Text File
|
1991-10-18
|
5KB
|
244 lines
TUGi_macro(v1.0)
sample_01()
{
Screen(3);
cls(1);
paletteset();
wind_init();
wrtstr(
" "
" TOWNSフォーラム、絵画喫茶マスター",
" LUFOさんの作品ですっ♪",
" 32枚あります"
" この画像データを表示しますか?",
" "
);
wind_close();
Question(
Graph_View(
Q:\DATA\LUFO\COSMOS.TK4
Q:\DATA\LUFO\FRE_HAND.TK4
Q:\DATA\LUFO\KANASI_1.TK4
Q:\DATA\LUFO\KANASI_2.TK4
Q:\DATA\LUFO\KASAIM_1.TK4
Q:\DATA\LUFO\KASAIM_2.TK4
Q:\DATA\LUFO\MAJO.TK4
Q:\DATA\LUFO\NIGHT_S.TK4
Q:\DATA\LUFO\NJACK_1.TK4
Q:\DATA\LUFO\NO_UNDO.TK4
Q:\DATA\LUFO\OMEGA.TK4
Q:\DATA\LUFO\OYTS_1.TK4
Q:\DATA\LUFO\P_FORM_1.TK4
Q:\DATA\LUFO\P_FORM_2.TK4
Q:\DATA\LUFO\RPG_1.TK4
Q:\DATA\LUFO\SAKURA.TK4
Q:\DATA\LUFO\SLIME.TK4
Q:\DATA\LUFO\TOWNS\2H.TK4
Q:\DATA\LUFO\TOWNS\ADM_1.TK4
Q:\DATA\LUFO\TOWNS\ADM_2.TK4
Q:\DATA\LUFO\TOWNS\BR_1.TK4
Q:\DATA\LUFO\TOWNS\BR_2.TK4
Q:\DATA\LUFO\TOWNS\ELF91_1.TK4
Q:\DATA\LUFO\TOWNS\ELF91_2.TK4
Q:\DATA\LUFO\TOWNS\ELF91_3.TK4
Q:\DATA\LUFO\TOWNS\ELF91_4.TK4
Q:\DATA\LUFO\TOWNS\ELF91_5.TK4
Q:\DATA\LUFO\TOWNS\FF91_1.TK4
Q:\DATA\LUFO\TOWNS\FF91_2.TK4
Q:\DATA\LUFO\TOWNS\H90.TK4
Q:\DATA\LUFO\TOWNS\NINJA91.TK4
Q:\DATA\LUFO\TOWNS\TYPE2.TK4
);
);
/**************************/
/** HEINZ さんのデータ **/
/**************************/
Screen(3);
cls(1);
paletteset();
wind_init();
wrtstr(
" ",
" HEINZさんのEUPデータに添えて",
" 絵画喫茶ウェートレスの あや さんが描いた絵です"
" (^_^)"
" この画像データを表示しますか?",
" "
);
wind_close();
Question(
Graph_View(
Q:\DATA\HEINZ00A\HEINZ00A.TIF
);
);
/* もっかい画面を初期化する訳ぢゃ(^_^;) */
Screen(3);
cls(1);
paletteset();
/***************************************/
/** 3つ目っ! **/
/***************************************/
/* 将来有望なフリーウェアライター(?) になってくれると */
/* いいなぁ(^_^;)ムセキニンナコトヲ (魚) */
wind_init();
wrtstr(
" セイバーさんの作品です。",
" "
" この画像データを表示しますか?",
" "
);
wind_close();
Question(
Graph_View(
Q:\DATA\SAVER\COACMA.PIC
Q:\DATA\SAVER\DAIGAK.PIC
Q:\DATA\SAVER\LIVE.PIC
Q:\DATA\SAVER\MAHOU.PIC
Q:\DATA\SAVER\M_GIRL.PIC
Q:\DATA\SAVER\T_WORLD.PIC
);
);
/***************************************/
/** SYM_SD **/
/****************************************/
Screen(3);
cls(1);
paletteset();
wind_init();
wrtstr(
" "
" Symgo Owno さんの作品です。",
" 4枚あります。",
" この画像データを表示しますか?",
" "
);
wind_close();
Question(
Graph_View(
Q:\DATA\SYM_SD\SYM_SD1.TIF
Q:\DATA\SYM_SD\SYM_SD2.TIF
Q:\DATA\SYM_SD\SYM_SD3.TIF
Q:\DATA\SYM_SD\SYM_SD4.TIF
);
);
/***************************************/
/** DMMAP **/
/****************************************/
Screen(3);
cls(1);
paletteset();
wind_init();
wrtstr(
" "
" ダンジョンマスターのマップでっす♪",
" え~っと・・・・"
" 作者の方の御名前が分からないのですが(^^;"
" "
" この画像データを表示しますか?",
" "
);
wind_close();
Question(
Graph_View(
Q:\DATA\DMMAP\DMMAP1.TIF
);
);
/*************/
/** DMMAP **/
/*************/
Screen(3);
cls(1);
paletteset();
wind_init();
wrtstr(
" "
"じょうほくさんの作品で、TOWNSデザイン画や",
"フォーミュラカー、F15E(戦闘機ですね)等々…"
" 7枚あります。"
" "
" この画像データを表示しますか?",
" "
);
wind_close();
Question(
Graph_View(
Q:\DATA\TOWNS05\TOWNS05.TK4
Q:\DATA\TOWNS04\TOWNS04.TK4
Q:\DATA\FWINDOW\FWINDOW1.TK4
Q:\DATA\F15E\F15E1.TK4
Q:\DATA\TYRRELL\TYRRELL1.TK4
Q:\DATA\MCLAREN2\MCLAREN2.TK4
Q:\DATA\MCLAREN1\MCLAREN1.TK4
Q:\DATA\ABURNER\ABURNER1.TK4
);
);
/***************************************/
/** 林檎の絵 **/
/****************************************/
Screen(3);
cls(1);
paletteset();
wind_init();
wrtstr(
" "
" ☆Plusα☆さんによる、林檎の絵です",
" "
" この画像データを表示しますか?",
" "
);
wind_close();
Question(
Graph_View(
Q:\DATA\RINGO\IM005.TIF
Q:\DATA\RINGO\IM006.TIF
);
);
/****************/
/** お終いっ **/
/****************/
Screen(3);
cls(1);
paletteset();
wind_init();
wrtstr(
" ",
" ",
" 他のデータも見てみますか?"
);
wind_close();
Question(
MAIN2SB2.TUG
);
END.TUG
}